home *** CD-ROM | disk | FTP | other *** search
- /*
- * *********************************************************************
- * * Copyright (C) 1988, 1990 Stanford University. *
- * * Permission to use, copy, modify, and distribute this *
- * * software and its documentation for any purpose and without *
- * * fee is hereby granted, provided that the above copyright *
- * * notice appear in all copies. Stanford University *
- * * makes no representations about the suitability of this *
- * * software for any purpose. It is provided "as is" without *
- * * express or implied warranty. Export of this software outside *
- * * of the United States of America may require an export license. *
- * *********************************************************************
- */
-
-
- #define VLine( WIND, X, BOT, TOP, GCX ) \
- XFillRectangle( display, WIND, GCX, X, TOP, 1, (BOT) - (TOP) + 1 )
-
- #define HLine( WIND, LEFT, RIGHT, Y, GCX ) \
- XFillRectangle( display, WIND, GCX, LEFT, Y, (RIGHT) - (LEFT) + 1, 1 )
-
- #define FillAREA( WIND, X, Y, WIDTH, HEIGHT, GCX ) \
- XFillRectangle( display, WIND, GCX, X, Y, WIDTH, HEIGHT )
-
- #define InvAREA( WIND, X, Y, WIDTH, HEIGHT ) \
- XFillRectangle( display, WIND, gcs.inv, X, Y, WIDTH, HEIGHT )
-
- #define BWID( Bx ) ( (Bx).right - (Bx).left + 1 )
- #define BHIG( Bx ) ( (Bx).bot - (Bx).top + 1 )
-
- #define FillBox( WIND, B, GCX ) \
- XFillRectangle( display, WIND, GCX, B.left, B.top, BWID(B), BHIG(B) )
-
- #define InvBox( W, B ) \
- XFillRectangle( display, W, gcs.invert, (B).left, (B).top, BWID(B), BHIG(B) )
-
- #define OutlineBox( WIND, B, GCX ) \
- XDrawRectangle( display, WIND, GCX, (B).left, (B).top, BWID(B)-1, BHIG(B)-1 )
-
- #define StrLeft( WIND, S, LEN, LEFT, BOT, GCX ) \
- XDrawImageString( display, WIND, GCX, LEFT, (BOT) - descent, S, LEN )
-
- #define StrRight( WIND, S, LEN, RIGHT, BOT, GCX ) \
- XDrawImageString( display, WIND, GCX, \
- (RIGHT) - (LEN) * CHARWIDTH +1, (BOT) - descent, S, LEN )
-
- #define StrCenter( WIND, S, LEN, LEFT, RIGHT, BOT, GCX ) \
- XDrawImageString( display, WIND, GCX, \
- ((RIGHT) + (LEFT) - CHARWIDTH * (LEN)) / 2, (BOT) - descent, S, LEN )
-
-